home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xrmoptiondescrec.t < prev    next >
Text File  |  1990-06-01  |  1KB  |  34 lines
  1. (herald xrmoptiondescrec (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XRMOPTIONDESCREC)
  3.         (CONS 'XRMOPTIONDESCLIST (MAKE-BYTEV 16)))
  4. (DEFINE (XRMOPTIONDESCREC-OPTION X)
  5.         ((LAMBDA (X Y) (CONS 'CHARP (MREF-POINTER X Y)))
  6.          (CHK-XRMOPTIONDESCLIST X)
  7.          0))
  8. (DEFINE (XRMOPTIONDESCREC-OPTION! X Y)
  9.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-CHARP Z)))
  10.          (CHK-XRMOPTIONDESCLIST X)
  11.          0
  12.          Y))
  13. (DEFINE (XRMOPTIONDESCREC-SPECIFIER X)
  14.         ((LAMBDA (X Y) (CONS 'CHARP (MREF-POINTER X Y)))
  15.          (CHK-XRMOPTIONDESCLIST X)
  16.          4))
  17. (DEFINE (XRMOPTIONDESCREC-SPECIFIER! X Y)
  18.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-CHARP Z)))
  19.          (CHK-XRMOPTIONDESCLIST X)
  20.          4
  21.          Y))
  22. (DEFINE (XRMOPTIONDESCREC-ARGKIND X) (MREF-INTEGER (CHK-XRMOPTIONDESCLIST X) 8))
  23. (DEFINE (XRMOPTIONDESCREC-ARGKIND! X Y)
  24.         (SET-MREF-INTEGER! (CHK-XRMOPTIONDESCLIST X) 8 Y))
  25. (DEFINE (XRMOPTIONDESCREC-VALUE X)
  26.         ((LAMBDA (X Y) (CONS 'CHARAP (MREF-POINTER X Y)))
  27.          (CHK-XRMOPTIONDESCLIST X)
  28.          12))
  29. (DEFINE (XRMOPTIONDESCREC-VALUE! X Y)
  30.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-CHARAP Z)))
  31.          (CHK-XRMOPTIONDESCLIST X)
  32.          12
  33.          Y))
  34.